Результать распечатать в виде:
Массив 1:
Массив 2:
Массив 3:
MIN=
imin=
max3(imin)
CLS
n = 20
DIM a(n), b(n), c(n)
FOR i = 1 TO n
PRINT "vvedite element a(i)"; i
INPUT a(i)
NEXT
FOR i = 1 TO n
PRINT "vvedite element b(i)"; i
INPUT b(i)
NEXT
min = b(1)
FOR i = 1 TO n
IF b(i) < min THEN min = b(i): q = i
c(i) = a(i) + b(i)
NEXT
FOR i = n TO 1 STEP -1
IF c(i) = min THEN k = i
NEXT
CLS
PRINT "massiv 1"
FOR i = 1 TO n
PRINT a(i);
NEXT
PRINT
PRINT "massiv 2"
FOR i = 1 TO n
PRINT b(i);
NEXT
PRINT
PRINT "massiv 3"
FOR i = 1 TO n
PRINT c(i);
NEXT
PRINT
PRINT "min ="; min
PRINT "imin ="; q
IF k <> 0 THEN PRINT "mas3(imin) ="; k ELSE PRINT "net sovpadenij"
Тестирование выполнено в программе QB64 ( Скачать )